max_distance Derived Type

type, public, extends(distance_base) :: max_distance

Class to calculate the Max distance


Inherits

type~~max_distance~~InheritsGraph type~max_distance max_distance type~distance_base distance_base type~max_distance->type~distance_base

Type-Bound Procedures

procedure, public :: calculate => calculate_max_distance

  • private function calculate_max_distance(distance, vector1, vector2) result(d)

    Function to calculate the Max distance between vectors A real variable with the distance

    Arguments

    Type IntentOptional Attributes Name
    class(max_distance) :: distance

    A Max_distance object
    real(kind=wp), intent(inout), dimension(:,:) :: vector1

    A real vector
    real(kind=wp), intent(inout), dimension(:,:) :: vector2

    A real vector

    Return Value real(kind=wp)

    A real vector

Source Code

    type,extends(distance_base) :: max_distance
    !! Class to calculate the Max distance
        contains
            procedure,public :: calculate => calculate_max_distance
    end type max_distance